home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Applications (app) / Image 1.44 / Macros / Length Measurements < prev    next >
Text File  |  1992-03-04  |  2KB  |  95 lines
  1. {
  2. This is a set of macros for making four length measurement and
  3. entering one numeric parameter, with the results stored in
  4. a single row in the results table.
  5. }
  6. var {Global variable}
  7.   L1,l2,L3,L4,N:integer;
  8.  
  9. procedure MeasureLine;
  10. var
  11.   x1,y1,x2,y2,LineWidth:integer;
  12. begin
  13.   GetLine(x1,y1,x2,y2,LineWidth);
  14.   if x1<0 then begin
  15.     PutMessage('Please make a line selection.');
  16.     exit;
  17.   end;
  18.   Measure;
  19. end;
  20.  
  21. procedure Update;
  22. begin
  23.   rMean[rCount]:=L1;
  24.   rStdDev[rCount]:=L2;
  25.   rX[rCount]:=L3;
  26.   rY[rCount]:=L4;
  27.   rLength[rCount]:=N;
  28.   UpdateResults;
  29. end;
  30.  
  31.  
  32. macro '1st Measurement [1]';
  33. var
  34.   x1,y1,x2,y2,LineWidth:integer;
  35. begin
  36.   MeasureArea(false);
  37.   MeasureDensity(true);
  38.   MeasureStandardDeviation(true);
  39.   MeasureXY(true);
  40.   MeasureMode(false);
  41.   MeasurePerimeter(true);
  42.   MeasureLine;
  43.   L1:=rLength[rCount];
  44.   L2:=0;
  45.   L3:=0;
  46.   L4:=0;
  47.   N:=0;
  48.   Update;
  49. end;
  50.  
  51. macro '2nd Measurement [2]';
  52. var
  53.   x1,y1,x2,y2,LineWidth:integer;
  54. begin
  55.   if rCount>0 then SetCounter(rCount-1);
  56.   MeasureLine;
  57.   L2:=rLength[rCount];
  58.   Update;
  59. end;
  60.  
  61. macro '3rd Measurement [3]';
  62. var
  63.   x1,y1,x2,y2,LineWidth:integer;
  64. begin
  65.   if rCount>0 then SetCounter(rCount-1);
  66.   MeasureLine;
  67.   L3:=rLength[rCount];
  68.   Update;
  69. end;
  70.  
  71.  
  72. macro '4th Measurement [4]';
  73. var
  74.   x1,y1,x2,y2,LineWidth:integer;
  75. begin
  76.   if rCount>0 then SetCounter(rCount-1);
  77.   MeasureLine;
  78.   L4:=rLength[rCount];
  79.   Update;
  80. end;
  81.  
  82. macro 'Enter Number [5]';
  83. var
  84.   x1,y1,x2,y2,LineWidth:integer;
  85. begin
  86.   N:=GetNumber('Enter Number:',N);
  87.   Update;
  88. end;
  89.  
  90.  
  91.  
  92.  
  93.  
  94.   
  95.